SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TMLETR_CLIE_D01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS S.A.                --*/
/*---Sistema              : Tesoreria                  --*/
/*---M÷dulo               : Empresa                    --*/
/*---Programa             : Anulaci¸n Dctos. Clientes  --*/
/*---Script               : TMLETR_CLIE_D01.sql        --*/
/*---Nombre SP            : SP_TMLETR_CLIE_D01         --*/
/*---Desarrollado por     : Reynaldo Menacho L.        --*/
/*---Fecha Creaci÷n       : 20/08/2003                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi÷n              : 2000                       --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :                            --*/
/*---Fecha Modificaci÷n   :                            --*/ 
/*---Detalle Modificaci÷n :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TMLETR_CLIE_D01                      --*/
/*---Grant all on SP_TMLETR_CLIE_D01 to public         --*/ 
/*---SP_TMLETR_CLIE_D01                                --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR       TD_VC_002, 
 @ISCO_USUA_MODI  TD_VC_008_USUA,
 @ISNU_LETR_CLIE  TD_VC_020

As
 
 Begin Tran SP_TMLETR_CLIE_D01 

	Insert into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,
	    	     CO_CLAV_TAOR) 
   	select @ISCO_EMPR, 40, 'MAESTRO LETRAS CLIENTES',
	       RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+ 
	       RTRIM( @ISNU_LETR_CLIE )+ REPLICATE('#', 15-LEN(RTRIM(@ISNU_LETR_CLIE)))
	From   TMLETR_CLIE 
	Where  CO_EMPR = @ISCO_EMPR
	       And NU_LETR_CLIE = @ISNU_LETR_CLIE

	   If @@error <> 0
	      Begin
	        Rollback tran
	        Return
	      End


	 Delete TMLETR_CLIE 
	 Where  CO_EMPR = @ISCO_EMPR
	       And NU_LETR_CLIE = @ISNU_LETR_CLIE
	
	   If @@error <> 0
	      Begin
	        Rollback tran
	        Return
	      End



Commit Tran

/*-------------------------- Fin ------------------------------*/


GO
